home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT LPR Ports.xpl < prev    next >
Text File  |  2001-05-08  |  3KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Network\TCP/IP"
  5. "NAME"="LPR Ports RFC 1179 compliant"
  6. "VERSION"="1.02"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0101011"
  9. "WARNING"="1"
  10. "TEXT 1"="na na"
  11. "DESCRIPTION 1"="Windows includes an service to print to LPR printers (Line Printer interface) which is described in RFC 1179. Normally this service simply works but you can run into problems when you have more printers than the ports described in RFC 1179."
  12. "DESCRIPTION 2"="RFC 1179 only described 10 ports which a LPR can use (721-731) and if you have more printers than this amount, Windows might run out of LPR Ports when printing, resulting in some printers taking really long time to print something."
  13. "DESCRIPTION 3"="With these settings, you can enable that Windows uses more ports (any above 1024) for sending data to an LPR Printer which is no longer RFC 1179 compatible but works with most LPR printers."
  14. "DESCRIPTION 4"="Checking a device means: Use any port above 1024. An unchecked box means: Be strictly RFC 1179 compatible (use only 721-731)."
  15. "DESCRIPTION 5"="More information about this topic can be found in MS KB: Q179156"
  16. "DESCRIPTION 6"="NOTE: You need to restart the SPOOLER service to apply these changes: just enter "NET STOP SPOOLER" and "NET START SPOOLER" on a command prompt."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20.  
  21.  
  22. sPath="HKLM\Software\Microsoft\LPDSVC\lpr\"
  23. sValNon=sPath & "UseNonRFCSourcePorts"
  24.  
  25. Dim iCount
  26.  
  27. 'Called when the Plugin is started
  28. Sub Plugin_Initialize
  29.  if RegValueExists(sValNon) then
  30.     Call MsgInformation("Your computer is configured with the UseNonRFCSourcePorts setting, therefore this plug-in is not usefull for you and is disabled")
  31.  else
  32.     iCount=RegEnumValues(sPath)
  33.     for e=1 to iCount
  34.         Call SetUIElement(e,"Port: " & RegEnumElement(e))
  35.         if RegReadValue(sPath & RegEnumElement(e))="1" then
  36.            Call SetUIElementEx(e,true)
  37.         end if
  38.     next 
  39.  
  40.  end if
  41.  
  42. End Sub
  43.  
  44. 'Called when the Plugin should apply the changes
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  
  47.  for i=1 to iCount
  48.      b=GetUIElementEx(i)
  49.      if b=true then
  50.         Call RegWriteValue(sPath & RegEnumElement(i),1,2)
  51.      else
  52.         Call RegWriteValue(sPath & RegEnumElement(i),0,2)
  53.      end if
  54.  next
  55.  
  56. End Sub
  57.  
  58. 'Called when the Plugin is about to be removed from memory
  59. Sub Plugin_Terminate
  60. End Sub
  61.